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ABSTRACT 


This  report  describes  a plotting  package  for  use  with  the  Tektronix 
4014  graphics  terminals  on  the  Picatinny  Arsenal  CDC  6500/6600  time 
sharing  system.  The  routines  are  used  in  conjunction  with  the  TCS 
(Terminal  Control  System)  provided  on  the  CDC  System,  and  are  similar 
to  several  standard  Calcomp  plotting  routines. 
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Introduction  and  Objective 


In  the  course  of  his  everyday  duties,  the  research  enoineer  is 
often  called  upon  to  use  the  digital  computer  as  a tool  to  assist 
him  in  the  solution  of  problems.  One  of  the  most  difficult  tasks 
when  employing  the  computer  is  to  utilize  the  large  quantity  of  data 
that  can  be  ouicklv  oenerated.  Through  the  use  of  interactive 
oraphics,  massive  tables  of  results  can  often  be  reduced  to  a single 
plot.  Graphics  properly  employed  can  not  only  assist  in  data  inter- 
pretation, but  can  add  instant  documentation  to  a problem.  The 
package  of  subroutines  presented  here  is  offered  for  aeneral  use 
in  the  hope  that  the  overall  engineering  effort  will  be  made  more 
effective. 

The  routines  are  similar  to  CALCOMP  plotting  routines  but  allow 
more  flexibility  in  defining  the  axes  for  graphs.  This  was  done  in 
order  that  graphs  could  be  made  on  similar  scales  for  comparison  pur- 
poses. Before  the  potential  user  shies  away  from  the  use  of  graphics 
believing  it  too  difficult  and  time  consuming  to  implement,  he  should 
first  look  at  the  subroutine  listed  in  Figure  2.  This  self-con- 
tained routine  will  plot  a signal  as  a function  of  time  on  a Tek- 
tronix 4014  graphics  terminal.  This  particular  subroutine  inter- 
actively requests  the  plot  label  and  the  signal  units,  initializes 
the  graphics  package  and  completes  the  plot.  A sample  of  one  such 
resulting  plot  is  shown  in  Figure  3.  The  program  in  Figure  1 was 
used  with  the  subroutine  SIGPLT  of  Figure  2 to  generate  this  olot. 

It.  should  be  noted  that  the  subroutine  SIGPLT  as  listed,  calls  the 
routine  AXISH  to  draw  the  axis.  This  causes  the  hardware  character 
generator  to  be  used  for  the  axis  annotations  and  the  axis  labels. 

These  two  calls  could  he  replaced  bv  calls  to  the  routine  AXISb. 

This  would  necessitate  the  change  also  in  the  size  parameter  from  the 
integer  variable  IS I ZF  to  an  appropriate  value  of  the  real  variable 
Hl.AB.  These  changes  were  made  with  HI  AB  = 0.15.  The  resulting  plot 
from  the  modified  SIGPLT  is  shown  in  Figure  4.  in  this  case  the  axis 
annotations  and  labeling  were  performed  usina  a software  character 
generator. 

Once  a routine  such  as  SIGPLT  is  written,  it  can  be  easily  modified 
to  perform  similar  tasks  in  other  programs.  I believe,  in  fact,  if  a 
comouter  user  persistently  makes  use  of  a packaae  such  as  this  one  it 
will  soon  become  second  nature  to  him.  It  will  become  as  efficient 
fand  much  more  desiraole)  to  obtain  plotted  results  as  it  would  hr  to 
gpf  nicely  formatted  output. 
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Plotting  Procedures 


One  need  not  be  familiar  with  TCS  (the  Terminal  Control  System 
available  on  the  ARRADCOM  system)  to  use  the  routines  presented  here. 

The  only  routine  needed  from  TCS  is  the  subroutine  IN1TT.  This 
routine  must  be  called  prior  to  the  use  of  any  other  graphics  routine. 
The  call  is  always  the  same  as  shown  in  Figure  2.  The  onlv  parameter 
in  this  call  is  the  transmission  rate  and  at  present,  all  our  graphics 
terminals  transmit  at  300  baud.  This  routine  will  initialize  the 
graphics  package  and  will  erase  the  screen.  The  only  other  concession 
to  TCS  is  that  the  PROGRAM  statement  card  in  the  user's  main  program 
must  contain  the  file  names  TAPE61  and  TAPE62  in  addition  to  any  files 
the  user  desires.  An  example  of  this  appears  in  the  sample  program 
of  Figure  1. 

The  routines  presented  here  are  based  on  a common  addressing 
scheme.  The  Tektronix  4014  screen  is  approximately  10  inches  high 
and  14  inches  wide.  All  screen  position  data  for  these  subroutines 
will  be  given  in  inches  measured  from  the  lower  left  (the  user's 
left)  corner  of  the  screen.  The  user  will  soon  become  adept  at  lay- 
inn  out  his  desired  nicture  on  a sheet  of  paper  and  picking  off  ap- 
propriate coordinates  for  input  to  the  various  routines. 

The  routines  provided  by  this  package  include  routines  to  move  the 
cursor  with  the  beam  on  or  off,  to  rescale  the  total  picture,  to  out- 
put variable'  rr  character  strings,  and  to  draw  and  grid  either  linear 
or  logarithm’c  axes.  Eacn  routine  that  has  a character  drawing  furction 
associated  with  it  (eg.  the  linear  axis  routine)  has  two  separate 
forms.  One  form  will  use  software  generated  characters  that  can  D9 
written  with  any  size  and  orientation,  but  they  require  more  time  to 
bo  drawn.  The  other  form  of  the  routine  uses  hardware  characters. 

T1  p hardware  characters  can  only  be  written  horizonally  (at  an  angle 
of  0 degrees)  and  are  restricted  to  one  of  four  standard  sizes. 

Table  1 shows  the  index  and  relative  size  characteristics  for  each 
or  the  standard  hardware  characters.  The  use  of  hardware  characters 
will  significantly  reduce  picture  generation  time  if  very  much  labeling 
is  used. 

/ procedure  is  provided  to  facilitate  the  incorporation  of  this 
graphics  library  with  the  user's  compiled  output.  If  the  user  has 
allowed  his  object  file  to  go  into  the  default  LGO  file,  he  will  need 
opiv  the  following  interactive  statement  to  add  the  graphics  routines 
rerui red: 


a 


BEGIN,  TEK,  BR/HOOGTERP 


* 


The  run  file  is  then  contained  in  the  local  file  called  TEK  and  nay 
be  cataloged  or  may  be  run  by  simply  typing: 

TEK 

It  is  worthy  to  note  that  the  usage  of  the  BEGIN  statement  as 
described  will  obtain  not  only  the  required  routines  presented 
here,  but  also  any  routines  required  from  TCS. 

In  review,  if  the  user  has  his  program  requiring  graphics  in  the 
editor,  he  may  run  it  by  simply  typing  the  following  commands: 

RUN,  FTN,  N 

REGIN,  TEK,  BR/HOOGTERP 

TEK 

For  the  information  of  the  more  sophisticated  user,  the  file  names 
LGO  and  TEK  used  in  the  BEGIN/REVERT  procedure  are  the  first  and 
second  default  parameters  in  the  procedure.  The  file  names  LG01  and 
TEK1  could  be  substituted  for  LGO  and  TEK  respectively  by  using  the 
following  form  of  the  BEGIN  statement: 

BEGIN,  TEK,  BR/HOOGTERP,  LG01 , TEK1 


Plotting  Routine  Descriptions 


The  following  pages  describe  briefly  each  of  the  subroutines 
available  and  illustrates  how  they  should  be  called.  These  sub- 
programs exist  in  object  form  in  the  nermanent  librarv  file  MYTEKlIC 
with  the  ID  * HOOGTERP. 

All  variables  used  in  the  call  descriptions  will  conform  to  the 
FORTRAN  defaults  to  determine  their  type.  In  other  words,  if  a 
sample  variable  begins  with  a letter  I through  N inclusive,  the 
corresponding  user  variable  or  constant  must  be  of  fixed  point  for- 
mat (ie.  an  integer).  If  the  variable  in  the  description  begins  with 
any  other  letter,  the  corresponding  user  variable  or  constant  must 
be  of  floating  point  format  (ie.  it  must  be  a real  value).  The  X 
distance  refers  to  the  horizonal  distance  from  the  left  edge  of  the 
screen  and  the  Y distance  to  the  vertical  distance  from  the  lower 
edoe  of  the  screen. 
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PLOT 


This  routine  is  used  to  move  the  cursor  from  its  present 
position  * ; any  desired  new  position.  The  move  is  performed  in  a 
straight  line  and  can  be  accomplished  with  the  beam  either  on  or 
off.  This  routine  can  also  be  used  to  insure  that  the  output 
buffer  is  dumped  at  a particular  point  in  the  program.  The  call  for 
the  routine  is: 

CALL  PLOT  (X,  Y.  I BEAM) 

where 

X - the  x-coordinate  to  which  the  cursor  is  to  be  moved 
(all  the  coordinates  are  in  inches  from  the  lower 
left  corner  of  the  screen). 

Y - the  y-coordinate  to  which  the  cursor  is  to  be  moved. 

IBEAM  - this  variable  controls  the  beam  status  during  the 

move  and  determines  whether  or  not  the  buffer  is  to 
be  transmitted  to  the  terminal. 

If  IBEAM  = 2 the  beam  is  turned  on  during  the  move, 
drawing  a visible  line. 

If  IBEAM  = 3 the  beam  is  turned  off  during  the  move. 
If  IBEAM  = 0 no  movement  is  performed  but  the  buffer 
contents  are  transmitted  to  the  terminal. 


FACT 


This  routine  enables  the  user  to  enlarge  or  reduce  the  size  of 
the  entire  plot.  This  can  be  accomplished  by  simply  giving  the  scale 
factor  by  which  all  coordinates  are  to  be  multiplied.  This  subroutine 
need  not  be  called.  If  it  is  not  called,  a default  value  of  1.0  is 
used  for  the  scale  factor.  Generally  one  would  not  use  this  routine 
if  hardware  character  writing  routines  were  used  since  the  size  of  the 
hardware  characters  would  not  be  altered  by  a call  to  FACT.  The  call 
for  this  routine  is  of  the  form: 

CALL  FACT  (SCALE) 

where 

SCALE  - the  ratio  of  the  desired  plot  size  to  the  normal  plot 
size. 


SYMB 


This  subroutine  will  place  a string  of  characters  at  the  specified 
location  on  the  screen.  The  characters  are  software  generated  and 
may  have  any  heiqht  and  be  drawn  at  any  desired  angle.  The  characters 
should  be  left  justified  in  the  array  or  variable.  The  routine  may  be 
called  with  the  following  statement: 

CALL  SYMB  (X,  Y,  H,  CHAR,  ANGLE,  NCHAR) 


where 


X,  Y - the  screen  coordinates  , in  inches,  of  the  lower  left- 
hand  corner  (before  character  rotation)  of  the  first 
character  to  be  produced. 

H - the  height  in  inches,  of  the  characters  to  be  plotted. 

CHAR  - name  of  a variable  or  array  containing  the  text  to  be 
plotted. 

ANGLE  - the  angle,  in  degrees,  measured  counterclockwise  *rom 
the  X-axis,  at  which  the  annotation  is  to  be  plotted. 

NCHAR  - the  number  of  characters  in  the  array  to  he  nlotted. 


HSYMB 


This  routine  is  similar  in  function  to  the  subroutine  SYMB. 

This  routine,  however,  uses  hardware  characters  instead  of  the  soft- 
ware characters  generated  by  SYMB.  As  a result  HSYMB  can  only  print 
characters  horizonally  (equivalent  to  setting  ANGLE  = 0 In  SYMB). 

This  routine  is  also  limited  to  a selection  of  four  character  sizes. 
The  exact  dimensions  of  each  size  are  given  In  Table  1.  As  with  SYMB 
the  text  should  be  left  justified.  The  call  for  HSYMB  is: 

CALL  HSYMB  (X,  Y,  ISIZE,  CHAR,  NCHAR) 

where 

X,  Y - the  screen  coordinates  (in  inches)  of  the  lower  left 
corner  at  the  first  character  to  be  printed. 

ISIZE  - the  size  of  the  hardware  character  to  te  used  (1-4 
where  1 is  the  largest  size). 

CHAR  - variable  or  array  containing  text  to  be  printed. 

NCHAR  - the  number  of  characters  to  be  printed. 

NOTE:  This  routine  has  one  less  parameter  that  its  software  char- 
acter generating  counterpart,  SYMB. 
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NUMB 


This  routine  takes  a floating  point  variable  or  constant,  con- 
verts it  to  a character  string  and  uses  SYMB  to  place  its  value  on 
the  screen  at  the  specified  location.  The  software  character  capability 
of  SYMB  is  extended  through  this  routine  to  the  drawinq  of  numbers. 

The  call  for  NUMB  is  as  follows: 

CALL  NUMB  (X,  Y,  H,  VAL,  ANGLE,  N) 

where 

X,  Y - the  x and  y screen  coordinates  (in  inches)  of  the 
lower  left  corner  of  the  plotted  number. 

H - the  height  in  inches  of  the  number  to  be  drawn. 

VAL  - the  floating  point  number  to  be  drawn. 

ANGLE  - the  angle,  in  degrees,  measured  counterclockwise 
from  the  x-axis,  at  which  the  number  is  to  be 
plotted. 

N - If  N>0,  it  specifies  the  number  of  digits  to  the 
right  of  the  decimal  point  to  be  drawn. 

If  N=0,  no  digits  will  be  drawn  to  the  right  of 
the  decimal  point. 

If  N=  -1,  the  decimal  point  will  also  be  suppressed. 


This  routine  performs  similarly  to  NUMB  with  the  exception  that 
the  hardware  character  routine  HSYMB  is  called  to  actually  place  the 
number  on  the  screen.  The  size  and  angle  restrictions  of  HSYMB  apply 
here  also.  The  call  for  HNUMB  is: 

CALL  HNUMB  (X,  Y,  ISIZE,  VAL,  N) 


where 


X,  Y - the  screen  coordinates  (in  Inches)  of  the  lower  left 
corner  of  the  number  printed. 

ISIZE  - the  hardware  character  size  (1-4  where  1 means  the 
largest  size). 

VAL  - the  floating  point  variable  or  constant  to  be 
printed. 

N - the  number  of  digits  desired  to  the  right  of  the  decimal 
point  (for  N<0  the  decimal  point  will  also  be  sup- 
pressed). 

NOTE:  The  anqle  parameter  included  in  NUMB  is  not  available  in  this 
routine. 


AX  ISM 


This  subroutine  allows  the  user  to  have  one  axis  of  a nraoh 
drawn  and  labeled  with  a single  call.  The  axis  can  be  drawn  at 
any  angle  and  software  characters  are  used  for  labeling.  Two  sizes 
of  tic  marks  are  generated  with  the  smaller  one  appearing  between 
axis  annotations  and  a larger  one  placed  at  each  annotated  point. 
This  routine  is  called  by: 

CALL  AX  ISM  ( X ,Y  .ALAB.NLAB ,ALEN  ,ANG ,AMIN .SCALE ,HLAR , NT I CM , 

L REP . I DP ) 


where 

X - x coordinate  of  axis  origin. 

Y - y coordinate  of  axis  origin. 

ALAR  - arrav  or  variable  containing  axis  label. 

NLAB  - number  of  characters  in  axis  label. 

If  NLAR<  0 the  labeling  will  be  done  on  the  clock- 
wise side  of  the  axis. 

If  NLAP>0  the  labeling  is  done  on  the  counter- 
clockwise side. 

ATEN  - lennth  of  axis  (inches). 

ANC,  - angle  to  axis  measured  counterclockwise  from  the  screen 
x-axis  in  decrees. 

AMIN  - minimum  value  on  axis. 

SCALE  - scale  factor  on  axis  (units/inch) 

HLAR  - height  (in  inches)  of  axis  label  and  axis  annotation 
(HLAB  = 0,  no  labeling). 

NT I CM  - number  of  tic  mark  intervals. 

LPEP  - label  repeat  cycle  (number  of  tic  mark  intervals  per 
axis  annotation). 

I fjP  - number  of  digits  after  decimal  point,  in  axis  annotation. 


AXISH 


This  routine  is  similar  to  AXISM  in  that  it  allows  the  user  to 
draw  and  label  one  axis  of  a graph  with  a single  call.  This  routine, 
however,  utilizes  the  hardware  characters.  As  a result  the  time  to 
draw  and  label  the  axis  is  lessened  considerably  at  the  cost  of  some 
flexibility.  The  call  is  very  similar  to  the  call  of  AXISM  with  only 
the  character  size  parameter  changing.  Also,  the  angle  entered  is 
rounded  to  the  nearest  multiple  of  90  degrees  and  either  a vertical 
or  a horizontal  axis  is  then  drawn.  The  label  for  a vertical  axis  will 
run  vertically  from  top  to  bottom.  This  subroutine  also  generates 
two  sizes  of  tic  marks.  Smaller  ones  appear  between  axis  annotations 
and  larger  ones  are  placed  at  each  annotated  point.  The  call  for 
this  routine  is: 

CAl  AXISH(X,Y,ALAB,NLAB,ALEN,ANG, AMIN, SCALE, ISIZE.NTICM, 

LREP.IDP) 

where 

X,  Y - coordinates  of  axis  origin. 

ALAB  - array  or  variable  containing  axis  label. 

NLAB  - number  of  characters  in  axis  label. 

if  NLAB<.0  the  labeling  will  be  on  clockwise  side  of  axis, 
if  NLAB>0  the  labeling  will  be  on  counterclockwise  side. 

ALEN  - length  of  axis  (inches). 

ANG  - angle  to  axis  measured  counterclockwise  from  the  screen 
x-axis  in  degrees. 

AMIN  - minimum  value  on  axis. 

SCALE  - scale  factor  on  axis  (units/inch). 

ISIZE  - the  size  of  the  hardware  characters  to  be  used  (1-4  where 
1 is  the  largest  size). 

NTICM  - number  of  tic  mark  intervals. 

LREP  - label  repeat  cycle  (number  of  tic  mark  intervals  per  axis 
annotation) . 

IDP  - number  of  digits  to  the  right  of  the  decimal  point  in 
axis  annotations. 
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L06AX 


This  routine  will  draw  an  axis  with  a logarithmic  scale,  using  the 
software  character  generating  capability.  The  user  is  allowed  to  se- 
lect the  angle  at  which  the  axis  is  to  be  drawn  but  the  labeling  size 
is  selected  for  him.  The  calling  statement  is  of  the  form: 

CALL  LOGAX  ( X , Y , ALAB , LCNT , ALEN ,ANG , EXPMX , SCALE ) 


where 

X - x coordinate  of  axis  origin. 

Y - y coordinate  of  axis  origin. 

ALAB  - array  containing  the  axis  label. 

LCNT  - number  of  characters  in  axis  label  (sign  convention 
same  as  that  in  AXISM  and  AXISH). 

ALEN  - length  of  axis  (inches). 

ANG  - angle  to  axis  measured  counterclockwise  from  the 
screen  X axis  in  degrees. 

EXPMX  - maximum  exponent  value  (maximum  power  of  10). 

SCALE  - number  of  inches  per  cycle  along  the  axis. 
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LOGAXH 


This  subroutine  draws  either  a vertical  or  a horizontal  axis  with 
a logarithmic  scale.  The  lettering  is  done  using  the  hardware  char- 
acter generator  on  the  Tektronix  4014.  As  in  LOGAX  the  character 
size  for  labeling  is  not  available  for  selection  by  the  user.  The 
call  for  this  routine  is: 

CALL  LOGAXH  (X,Y ,ALAB,LCNT,ALEN,ANG,EXPMX, SCALE) 

where 

X,  Y - the  origin  of  the  axis  {in  inches). 

ALAB  - the  axis  label. 

LCNT  - the  number  of  characters  in  the  label  (sign  con- 
vention same  as  that  in  AXISH  and  AXISM). 

ALEN  - length  of  axis  (in  inches). 

ANG  - angle  of  axis  (0  for  hori zonal;  otherwise  vertical). 
EXPMX  - maximum  exponent  value  (maximum  power  of  10). 

SCALE  - scale  factor  for  axis  (inches  per  cycle). 


LOGRD 


This  subroutine  can  be  used  to  draw  grid  lines  on  a graph. 

The  grid  lines  can  have  either  a linear  or  a logarithmic  spacing. 

One  call  to  LOGRD  will  produce  one  set  of  grid  lines.  For  example, 
one  call  is  needed  for  the  horizonal  grid  lines  and  another  for  the 
vertical  grid  lines.  The  routine  is  used  with  the  following  call: 

CALL  LOGRD  (XORG.YORG.GRLEN .AXLEN ,SCAL,ANG) 

where 

XORG.YORG  - the  origin  coordinates  for  the  corresponding  axis. 

GRLEN  - length  of  grid  lines  (>0  for  counterclockwise  from 
corresponding  axis;  < 0 for  clockwise). 

AXLEN  - length  of  corresponding  axis  in  inches. 

SCAL  - if  SCAL  ^ 0 then  this  is  the  scale  factor  for 

corresponding  logarithmic  axis  (inches/ 
cycles) . 

if  SCAL<^  0 then  the  absolute  value  of  SCAL  is  used 

as  the  spacing  for  a linear  grid  (in  inches). 

ANG  - angle  of  corresponding  axis  (degrees  counterclock- 

wise from  X-axis) . 

An  example  might  prove  beneficial  in  this  case.  Let  us  presume  we 
have  just  drawn  linear  x and  y axes  of  length  XLEN  and  YLEN  respectively 
and  assume  also  that  they  are  parallel  to  the  respective  screen  x and 
y axes.  Then  the  horizonal  grid  lines  (those  corresponding  to  the 
vertical  y axis)  can  be  generated  with  the  following  call: 

CALL  L0GRD(X0RG, YORG, -XLEN, YLEN, -DELY, 90.) 

where  DELY  is  the  desired  spacing  of  the  grid  lines  in  inches. 

The  call  for  the  vertical  grid  lines  (those  corresponding  to  the 
horizonal  x axis)  is  as  follows: 

CALL  L0GRD(X0RG, YORG, YLEN, XLEN, -DELX, 0. ) 

where  DELX  is  the  desired  linear  spacing  of  the  vertical  grid  lines 
in  inches. 
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PRFP 


This  subroutine  is  used  by  NUMR  and  HNUMB.  This  routine  does  not 
nerform  graphics  but  is  included  just  the  same.  The  subroutine  converts 
a floatino  point  number  into  a left  justified  character  string.  This 
strino  of  characters  can  then  be  output  without  formatting. 

The  number  of  digits  to  the  riqht  of  the  decimal  point  is  specified 
by  the  user  and  the  decimal  point  can  be  suppressed  if  desired.  The 
length  of  the  character  strinq  is  returned  along  with  the  string  it- 
self. The  call  for  this  routine  is: 

CALL  PREP  (VAL,  N,  STRG , LEN) 

where 

VAL  - the  floating  point  number  to  be  converted  to  a char- 
acter strina. 

N - the  number  of  digits  desired  to  the  rioht  of  the  de- 
cimal place. 

If  N < 0,  the  decimal  point  is  not  placed  in  the  char- 
acter string. 

STRG  - output  strinq  of  characters  to  represent  numter. 

LTM  - lenoth  of  output  string  (number  of  characters). 
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SAMPLE 


PROGRAM  SAMPLE (INPUT. OUTPUT .TAPE6 l, TAPE62) 
DIMENSION  TIME! 100) .SIGNAL (100) 

CALL  CONNECiSL INPUT) 

CALL  CONNEC (6L0UTPUT ) 

NPOINT* 100 

CONSTRUCT  SAMPLE  SIGNAL 

DO  10  1*1 .NPOINT 
TIME  ( I ) = (I-D/10. 

SIGNAL ( I ) * SIN (0.628* TIME ( I ) ) 

10  CONTINUE 

CALL  SIGPLT(-l..l.. TIME. SIGNAL .NPOINT) 

STOP 

ENO 


Figure  1 Cample  Main  Program 
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SIGPLT 


c this  subroutine  plots  the  signal  SPECIFIED  as  a 
C FUNCTION  of  TIME. 

c 

c 

SUBROUTINE  S IGPLT ( AM  IN. AMAX ♦ T I ME « S 1 GNAL .NPOINT ) 

DIMENSION  TIMF ( 1 ) .SIGNAL I I > .LABEL (S) 

DATA  LABT.LUNITS  /IOHTImE — SEC  . 1 OhaMPL I TUOE  / 

DATA  XORG.YORG  /J.5.2.0/ 

C 

C USER  ENTERS  LABEL  AND  SIGNAL  AXIS  LIMITS 

C 

PRINT  101 

101  FORMAT  <•  ENTER  PLOT  LABEL  *) 

READ  102. LABEL 

102  FORMAT  I5A10) 

PRINT  100*  AM  IN. AMAX 

100  FORMAT  (*  MINIMUM  VALUE  =*»F10.4**  MAXIMUM  VALUE  =**F10.4« 
1 * AXIS  MIN  AND  MAX  * *•/) 

READ  * . YMlN. YMAX 

TMAX=  INT(T  IME  (NPOINT)  ♦ J.99)  / A * A 

SCALT=TMAX/12.  ♦ 0.001 
SCALY=(YMAX-YMIN>  / 8. 

C 

C INITIALIZE  GRAPHICS  PACKAGF » PLOT  TIME  AXIS*  THEN  Y AXIS. 

C 

CALL  IN  I T T ( 300 ) 

CALL  AX  I SHI  1 .5.N..LABT.-9* |2.*0. *0. .SCALT .2.8*2* 1 > 

CALL  AXISH(I.5.?.*LUNITS*1C»B..90..YMIN.SCALY*2*8.2.1> 

T = T IME ( 1 ) /SCALT  ♦ XORG 
Y = ISIGNALIU-YMIN)  ✓ SCALY  ♦ YORG 

r 

C PLOT  SIGNAL  AS  FUNCTION  OF  TIME 

C 

CALL  PL3T(T.Y*3» 

DO  <*0  I =2*  NPO  I NT 
T * TIMEII)  / SCALT  • XORG 
Y - (SIGNAL (I)  - YM  IN ) / SCALY  ♦ YOoG 
CALL  PLOT ( T . Y , 2 1 
*0  CONTINUE 

CALL  HSYMB(A.*1..2,LABEL*S0» 

C 

C TRANSMIT  TOTAL  PICTURE  TO  SCREEN  AND  PLACE  TERMINAL 
C IN  WAIT  STATE.  THIS  ALLOWS  A CLEAN  COPY  TO  BE  MADE. 

C THE  PROGRAM  WILL  CONTINUE  WHEN  ANY  NUMBER  IS  ENTEREO. 

C 

CALL  PLOT (0. *0. «*3> 

READ  *.DUM 

RETURN 

END 

Figure  2 Subroutine  Co  Plot  Time  Signal 
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